home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / iprint / colordem.fr_ / colordem.fr
Text File  |  1994-08-03  |  4KB  |  123 lines
  1. VERSION 2.00
  2. Begin Form ColorDemoForm 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Color Demo"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   4425
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    Begin CommandButton FontButton 
  17.       Caption         =   "&Fonts"
  18.       Height          =   495
  19.       Left            =   5700
  20.       TabIndex        =   5
  21.       Top             =   2400
  22.       Width           =   1095
  23.    End
  24.    Begin CommandButton ExitButton 
  25.       Cancel          =   -1  'True
  26.       Caption         =   "E&xit"
  27.       Height          =   495
  28.       Left            =   5700
  29.       TabIndex        =   3
  30.       Top             =   3060
  31.       Width           =   1095
  32.    End
  33.    Begin PictureBox ColorBox 
  34.       BackColor       =   &H00FFFFFF&
  35.       Height          =   495
  36.       Index           =   0
  37.       Left            =   360
  38.       ScaleHeight     =   465
  39.       ScaleWidth      =   525
  40.       TabIndex        =   0
  41.       Top             =   240
  42.       Width           =   555
  43.    End
  44.    Begin Shape ColorBoxBorder 
  45.       Height          =   615
  46.       Index           =   0
  47.       Left            =   300
  48.       Top             =   180
  49.       Visible         =   0   'False
  50.       Width           =   675
  51.    End
  52.    Begin Label HexColorLabel 
  53.       AutoSize        =   -1  'True
  54.       Height          =   195
  55.       Left            =   360
  56.       TabIndex        =   4
  57.       Top             =   2280
  58.       Width           =   75
  59.    End
  60.    Begin Label RGBColorLabel 
  61.       AutoSize        =   -1  'True
  62.       Height          =   195
  63.       Left            =   360
  64.       TabIndex        =   2
  65.       Top             =   2700
  66.       Width           =   75
  67.    End
  68.    Begin Label QBColorLabel 
  69.       AutoSize        =   -1  'True
  70.       Height          =   195
  71.       Left            =   360
  72.       TabIndex        =   1
  73.       Top             =   3120
  74.       Width           =   75
  75.    End
  76. End
  77. Option Explicit
  78.  
  79. Sub ColorBox_Click (index As Integer)
  80.    Dim i As Integer
  81.    'Set the color labels to the correct values for the selected color.
  82.    QBColorLabel.Caption = "This color is QBColor:  " + Format$(index)
  83.    RGBColorLabel.Caption = "This color is RGB color:  " + Format$(ColorBox(index).BackColor)
  84.    HexColorLabel.Caption = "This color is Hexadecimal color:  &&H" + Hex$(ColorBox(index).BackColor)
  85.    'Remove the highlight for the previously selected box.
  86.    For i = 0 To 15
  87.       If ColorBoxBorder(i).Visible = True Then
  88.          ColorBoxBorder(i).Visible = False
  89.          Exit For
  90.       End If
  91.    Next i
  92.    'Highlight the selected box.
  93.    ColorBoxBorder(index).Visible = True
  94. End Sub
  95.  
  96. Sub ExitButton_Click ()
  97.    End
  98. End Sub
  99.  
  100. Sub FontButton_Click ()
  101.    ColorDemoForm.Hide 'Hide the ColorDemoForm.
  102.    FontDemoForm.Show 'Show the FontDemoForm.
  103. End Sub
  104.  
  105. Sub Form_Load ()
  106.    Dim i As Integer
  107.    Dim BoxTop As Integer
  108.    Dim BoxLeft As Integer
  109.    MousePointer = 11
  110.    'Draws and positions 16 boxes on the form.
  111.    BoxTop = ColorBox(0).Top  'Find the position of the first box in the control array in the top left corner of the form.
  112.    BoxLeft = ColorBox(0).Left
  113.    For i = 1 To 15
  114.       Call LoadColorBox(i, BoxTop, BoxLeft) 'Draw the next box and fill it with color.
  115.       BoxTop = ColorBox(i).Top  'Find the position of the box just drawn.
  116.       BoxLeft = ColorBox(i).Left
  117.    Next i
  118.    ColorBox(0).BackColor = QBColor(0) 'Set the color of the first box.
  119.    Call ColorBox_Click(0) 'Highlight the first box.
  120.    MousePointer = 0
  121. End Sub
  122.  
  123.